<% strId = Request.QueryString ("Id") set objConn = Server.CreateObject("ADODB.Connection") set objRs=Server.CreateObject("ADODB.Recordset") strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\guestbook.mdb") objConn.Open strConn strSQL = "Select * From Messages Where Id=" & strId objRS.Open strSQL,objConn,1,3 %>
Heading
:
<%=objRs("Heading")%>
Name Surname
:
<%=objRs("Name") & " " & objRs("Surname")%>
Email
:
"><%=objRs("Email")%>
Message
:
<%=objRs("Message")%>
Return To GuestBook
